﻿'Hacemos una referencia al proyecto de acceso a datos
Imports DataAccessLayer
'Hacemos una referencia al proyecto BusinessEntitites
Imports BE = BusinessEntities

Public Class EncuestaBL

    'Instanciamos la clase encuestaDAO
    Dim encuesta As New EncuestaDAO

    Public Function ListarEncuestas() As DataSet
        Return encuesta.ListarEncuestas
    End Function

    Public Function ListarEncuestasActivas() As DataSet

        Return encuesta.ListarEncuestasActivas

    End Function

    Public Function EliminarEncuesta(ByVal objeto As BE.EncuestaBE) As Boolean

        Return encuesta.EliminarEncuesta(objeto)

    End Function

    Public Function RegistrarEncuesta(ByVal objeto As BE.EncuestaBE) As String

        Return encuesta.RegistrarEncuesta(objeto)

    End Function

    Public Function ActualizarEncuesta(ByVal objeto As BE.EncuestaBE) As String
        Return encuesta.ActualizarEncuesta(objeto)

    End Function

    Public Function BuscarEncuesta(ByVal objeto As BE.EncuestaBE) As DataSet
        Return encuesta.BuscarEncuesta(objeto)

    End Function


    Public Function ChapaError() As String
        Return encuesta.ChapaError
    End Function

End Class
